with Stations.Test;

package body Stations_Suite is
   use AUnit.Test_Suites;

   Result : aliased Test_Suite;

   Test_S1: aliased Stations.Test.Test_S1;

   function Suite return Access_Test_Suite is
   begin
      Add_Test (Result'Access, Test_S1'Access);
      return Result'Access;
   end Suite;
end Stations_Suite;
